home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Corel Professional Photo…0: Sand & Pebble Textures
/
Corel Stock Photo Library 2 - 390 - Sand and Pebble Textures.iso
/
drwmodel
/
programs
/
data
/
startup.ps
< prev
next >
Wrap
Text File
|
1994-05-04
|
7KB
|
261 lines
%
% Copyright (c) 1990-1994 by
% Pipeline Associates, Inc., Morris Plains, NJ
% All rights reserved.
%
% This software is furnished under a license and may be used and
% copied only in accordance with the terms of such license and
% with the inclusion of the above copyright notice. This
% software or any other copies thereof may not be provided or
% otherwise made available to any other person except as allowed
% under license. No title to and ownership of the software is
% hereby transferred.
%
% This software is proprietary to Pipeline Associates, Inc., and
% is not to be disclosed without written permission from Pipeline
% Associates, Inc.
%
% This file may not be changed without express written permission
% of Pipeline Associates, Inc.
%
/#runpath 128 string (RUNPATH) getenv {def} {()def} ifelse
/MESSAGES 10 string (MESSAGES) getenv {def} { (OFF) def } ifelse
$error /inerror false put
/setpageparams {pop pop pop pop} def
/#fontpath (fonts) def
/setrealdevice {pop pop} def
/execjob {} def
% The following for LW version 68
/flushfile {
userdict /md known {
/__str 32000 string def
/__file exch def
{
__file __str readline not {
exit
} {
(cleartomark) eq { exit } if
} ifelse
} loop
} {
systemdict /flushfile get exec
} ifelse
} def
/=string 128 string def
/a3 {} def
/a4special {} def
/PRINTER 15 string (PRINTER) getenv {def} {() def} ifelse
/CIE 15 string (CIE) getenv {def} {(ON) def} ifelse
/RIBBONS 10 string (RIBBONS) getenv {def} {(1) def} ifelse
/DEPTH 10 string (DEPTH) getenv {cvi def} {1 def} ifelse
/PAPERSIZE 15 string (PAPERSIZE) getenv {def} {(MaxPage) def} ifelse
/hres 10 string (RESOLUTION) getenv {cvi def} {1000 def} ifelse
/vres 10 string (RESOLUTION) getenv {cvi def} {1000 def} ifelse
/rerun {
$lastfilerun //run
} def
/run {
/$lastfilerun exch def
$lastfilerun //run
} def
/timerun {
/time usertime def
run
usertime time sub timeprint
} def
/timeprint {
1000 div (time (secs): ) print = flush
(\r\n)print flush
} def
statusdict begin
/product PRINTER () eq { (PowerPage Level 2) } { PRINTER } ifelse def
/setbin {statusdict exch /$$bin exch put} def
/currentbin {statusdict /$$bin get} def
/$$bin 0 def
/cartstatus { pop 0 0 0 true } bind def
end
true setglobal
systemdict begin
/_findfont /findfont load def
/findfont {
systemdict /FontDirectory get exch 2 copy known
{
get
} {
exch pop
/Font {findresource} stopped {
pop $error /command /findfont put stop
} if
} ifelse
} bind def
end
false setglobal
(resource.ps)run
true setglobal
% The "InvalidFont" font -- mimics Adobe's default font
11 dict dup begin
/FontInfo 9 dict dup begin
/version (4/20/91 10:58 AM) readonly def
/Notice(Copyright (C) 1993 by Pipeline Associates, Inc., All Rights Reserved)def
/FullName (InvalidFont) readonly def
/FamilyName (InvalidFont) readonly def
/Weight (Medium) readonly def
/ItalicAngle 0 def
/isFixedPitch false def
/UnderlinePosition 0 def
/UnderlineThickness 0 def
end readonly def
/FontName /InvalidFont def
/Encoding 256 array 0 1 255{1 index exch /.notdef put}for def
/FontMatrix[1.0 0.0 0.0 1.0 0.0 0.0]def
/CDevProc {11{pop}repeat 1 0 0 0 1 1 0 -1 .5 1}def
/BuildChar {pop pop 1 0 0 0 1 1 0 -1 .5 1 setcachedevice2} def
/FontType -1 def
end
/InvalidFont exch definefont pop
false setglobal
/InvalidFont findfont setfont
%
% load Level 2 default CIE color rendering dictionary
%
CIE (ON) eq {
%
%
% PhotoShop friendly default CRD
%
systemdict /setcolorrendering known {
5 dict begin
/ColorRenderingType 1 def
/MatrixLMN [2.951 -1.085 .0864
-1.289 1.991 -.2711
-.4738 .0372 1.0910] def
/EncodeLMN [ {dup 0 lt {pop 0} {
dup 1 gt {pop 1} {0.555555 exp} ifelse}
ifelse} dup dup] def
/WhitePoint [.9505 1 1.0891] def
/TransformPQR [ {} {} {} ] def
currentdict
end setcolorrendering
}if
}{
% Old-style 'do-nothing' default CRD
%
systemdict /setcolorrendering known {
3 dict begin
/ColorRenderingType 1 def
/WhitePoint [0.9505 1.0 1.089] def
/TransformPQR [ {} {} {} ] def
currentdict
end setcolorrendering
}if
} ifelse
RIBBONS (4) eq {
{pop 0} setundercolorremoval
{pop 0} setblackgeneration
} if
% MaxPage is a 32" by 32" page; Theoretically, with it's center-origin
% page and 16-bit coordinates, Draw should be able to import a 65.535"
% by 65.535" maximum page. In actual practice, sice Draw! limits the
% maximum pagesize to 30" by 30", MaxPage should be more than enough.
/MaxPage {statusdict begin [2304 2304] null [0 0] [0 0 0 0] genpaper end} def
/letter {statusdict begin [612 792] null [0 0] [0 0 0 0] genpaper end} def
/landscape {statusdict begin [792 612] null [0 0] [0 0 0 0] genpaper end} def
/Letter {statusdict begin [612 792] null [0 0] [0 0 0 0] genpaper end} def
/11x17 {statusdict begin [792 1224] null [0 0] [0 0 0 0] genpaper end} def
/tabloid {statusdict begin [792 1224] null [0 0] [0 0 0 0] genpaper end} def
/Tabloid {statusdict begin [792 1224] null [0 0] [0 0 0 0] genpaper end} def
/Legal {statusdict begin [612 1008] null [0 0] [0 0 0 0] genpaper end } def
/legal {statusdict begin [612 1008] null [0 0] [0 0 0 0] genpaper end } def
/A4 {statusdict begin [595 842] null [0 0] [0 0 0 0] genpaper end } def
/a4 {statusdict begin [595 842] null [0 0] [0 0 0 0] genpaper end } def
/note {initgraphics} def
/a3 {initgraphics} def
/custom {
<</HWResolution [200 200] /PageSize [1440 2160] /ImagingBBox null
/PageMargins [0 0 0 0]>> setpagedevice
} def
statusdict /setuppd get exec
<< /Yorient 1
/ImagingModel 4
/ColorDepth DEPTH
/Colors RIBBONS cvi
/HWResolution [hres vres]
>> setpagedevice
<< /OutputProc { MEMdict /outputpage get exec } >> setpagedevice
PAPERSIZE cvx exec
statusdict begin
/lettertray {} def
/11x17tray {} def
/setpapertray {pop} def
end
mark 2000 10000 setcacheparams
/timeit {
/S__1 save def
dup print (: ) print
timerun
clear
S__1 restore
} def
false echo
systemdict begin
true setglobal
/cexec { pop } def
/devformat { pop pop pop } bind def
/product (PowerPage) def
false setglobal
end
true setglobal
(ROMFONT1)run
{pop 0} setundercolorremoval
{} setblackgeneration
false setglobal
statusdict begin
mark currentscreen counttomark array astore exch pop /DEFAULTSCREEN exch def
end
save pop % Protect lowest level state before running any PS jobs.